home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ IE Options 8.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-05-05  |  3.1 KB  |  104 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Appearance Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.00"
  8. "TEXT 1"="huah!"
  9. "DESCRIPTION 1"="Some appearance settings of Internet Explorer you might consider changing."
  10. "DESCRIPTION 2"=NOTE: Hidding the "Options" menu will also disable the "Internet" applet inside Control Panel!"
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Thanks to Sebastien Maurice for some of this settings!"
  15. "COMMENT 2"="Thanks to Ian Moran [ian@allwebsales.be] for the idea"
  16.  
  17. dim rgVals()
  18. dim rgDesc()
  19.  
  20. ReDim rgVals(8)
  21. ReDim rgDesc(8)
  22.  
  23. 'All DW
  24. rgDesc(0)="Show ""File"" -> ""Open"" command"
  25. rgVals(0)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen"
  26.  
  27. rgDesc(1)="Show ""File"" -> ""New"" command"
  28. rgVals(1)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileNew"
  29.  
  30. rgDesc(2)="Show ""File"" -> ""Save""/""Save as"" command"
  31. rgVals(2)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs"
  32.  
  33. rgDesc(3)="Show ""Tools"" -> ""Options"" command"
  34. rgVals(3)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
  35.  
  36. rgDesc(4)="Show ""Edit"" -> ""Find"" command"
  37. rgVals(4)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFindFiles"
  38.  
  39. rgDesc(5)="Enable ""Favorites"" menu"
  40. rgVals(5)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFavorites"
  41.  
  42. rgDesc(6)="Enable right-click HTML menu"
  43. rgVals(6)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu"
  44.  
  45. rgDesc(7)="Enable ""Theater Mode""/""Kiosk Mode"" (F11)"
  46. rgVals(7)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoTheaterMode"
  47.  
  48. rgDesc(8)="Enable ""Set as Wallpaper..."" menu on HTML menu"
  49. rgVals(8)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper"
  50.  
  51.  
  52. 'Called when the Plugin is started
  53. SUB Plugin_Initialize  
  54.  for l=lbound(rgDesc) to ubound(rgDesc)
  55.      Call ReadSetting(l+1,rgVals(l),rgDesc(l))
  56.  next 
  57. END SUB
  58.  
  59. 'Called when the Plugin should validate the Data the user has entered
  60. SUB Plugin_CheckData(ElementIndex)
  61. END SUB
  62.  
  63. 'Called when the Plugin should apply the changes
  64. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  65.  for l=lbound(rgDesc) to ubound(rgDesc)
  66.      Call WriteSetting(l+1,rgVals(l))
  67.  next 
  68. END SUB
  69.  
  70.  
  71. 'Called when the Plugin is about to be removed from memory
  72. SUB Plugin_Terminate
  73. END SUB
  74.  
  75.  
  76.  
  77. Sub WriteSetting(ITM,VAL)
  78.  b=GetUIElementEx(ITM)
  79.  if b=false then
  80.     Call RegWriteValue(VAL,1,2)
  81.     Call Restart()
  82.  else
  83.     If RegValueExists(VAL) then
  84.        Call RegDeleteValue(VAL)
  85.        Call Restart()
  86.     end if
  87.  end if
  88. end sub
  89.  
  90. 'ITM = Number, VAL = RegVal Path, TXT = Text for UI
  91. Sub ReadSetting(ITM,VAL,TXT)
  92.  Call SetUIElement(ITM,TXT)
  93.  
  94.  i=RegReadValue(VAL)
  95.  if IsEmpty(i) then
  96.     Call SetUIElementEx(ITM,true)
  97.  else
  98.     if i<>1 then     
  99.        Call SetUIElementEx(ITM,true)
  100.     end if
  101.  end if
  102. end sub
  103.  
  104.